#!/usr/bin/perl

use DB_File;
use Fcntl;
use Sys::Hostname;



$dbm="/export/scripts/dynect-quebec/control.dbm";

tie %mydbm, "DB_File", $dbm   # open database, to be accessed
    or die "Can't open $dbm:$!\n";    # through %HASH




while ( ($k,$v) = each %mydbm ) {
        print "$k => $v\n";
}

untie %mydbm;

